(define (same-parity . w)
    (define (my-check? x y)
        (= 0 (remainder (+ x y) 2))
    )
    (define (make-my-list x items )
        (if (null? items)
            (list )
            (if (my-check? x (car items))
                (cons
                    (car items) 
                    (make-my-list x (cdr items))
                )
                (make-my-list x (cdr items))
            )    
        )
    )
    (make-my-list (car w) w)
)

(display (same-parity 1 2 3 4 5 6 7))
(newline)
(display (same-parity  2 3 4 5 6 7))
(newline)
(exit)